home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
qrep10b.zip
/
LABELREP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-09
|
2KB
|
64 lines
unit Labelrep;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Quickrep, ExtCtrls, DB, DBTables;
type
TLabelForm = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
Rep: TQuickReport;
QRBand1: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
Table1CustNo: TFloatField;
Table1Company: TStringField;
Table1Addr1: TStringField;
Table1Addr2: TStringField;
Table1City: TStringField;
Table1State: TStringField;
Table1Zip: TStringField;
Table1Country: TStringField;
Table1Phone: TStringField;
Table1FAX: TStringField;
Table1TaxRate: TFloatField;
Table1Contact: TStringField;
Table1LastInvoiceDate: TDateTimeField;
QRDBText4: TQRDBText;
QRBand2: TQRBand;
QRLabel1: TQRLabel;
Table1AdrLine3: TStringField;
Table1AdrLine4: TStringField;
QRDBText3: TQRDBText;
QRSysData1: TQRSysData;
QRBand3: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
procedure Table1CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LabelForm: TLabelForm;
implementation
{$R *.DFM}
procedure TLabelForm.Table1CalcFields(DataSet: TDataSet);
begin
Table1AdrLine3.Value:=Table1City.Value+' '+Table1Zip.Value+' '+Table1State.Value;
if Table1Addr2.Value<>'' then begin
Table1AdrLine4.Value:=Table1AdrLine3.Value;
Table1AdrLine3.Value:=Table1Addr2.value;
end;
end;
end.